10 POKE53280,2:POKE 53281,1
20 HS=0:BT=9999:V=54296:S=54273:N=128:A=54272:B=1027:TAB$=""
22 FOR I=ATOA+24:POKEI,0:NEXT
25 POKE 54277,100:POKE 54278,100
30 PRINT "[147]LETTER ATTACK!"
50 FORT=1TO1000:NEXT
100 PRINT"[147]":SC=0:TM=0:POKE 198,0
110 PRINT ""TAB$"CHOOSE DIFFICULTY"
120 PRINT TAB$"LEVEL (1[146] - 9[146])"
130 DL$="":GET DL$:IF DL$="" THEN 130
140 IF DL$<"1" OR DL$>"9" THEN 130
150 PRINT TAB$ DL$
160 DL=VAL(DL$):DL=10-DL:POKE 198,0
170 PRINT TAB$"HOW MANY LETTERS"
180 PRINT TAB$"WOULD YOU LIKE?"
190 PRINT TAB$"1[146]0 - 9[146]0"
200 NL$="":GET NL$:IF NL$="" THEN 200
210 IF NL$<"1" OR NL$>"9" THEN 200
220 PRINT NL$
230 NL=VAL(NL$):NL=NL*10:LR=NL
270 PRINT"[147]"
280 POKE 55296,2:POKE 1024,77:POKE 55302,2:POKE 1030,78
290 FOR I=1065 TO 1945 STEP 40
300 POKE I+A,2:POKE I,101:POKE I+A+4,2:POKE I+4,103
310 NEXT I
320 POKE 56256,2:POKE 1984,78:POKE 56262,2:POKE 1990,77
330 PRINT "[144]DIFFICULTY"
340 PRINT "LEVEL:"
350 PRINT "";10-DL
360 PRINT "LETTERS"
370 PRINT "REMAINING:"
380 PRINT "";LR
390 PRINT "SCORE:"
400 PRINT "HIGH SCORE:"
410 PRINT "";HS
420 IF BT<>9999 THEN POKE BT+54269,4:POKE BT-3,62
470 FOR I=55299 TO 56259 STEP 40
480 POKE I,6
490 NEXT I
500 LE=INT(RND(1)*26+1):LC=LE+64
510 FOR J=1 TO 26
520 POKE B,J
530 FORT=1TO20:NEXT
540 NEXT J
550 FOR I=1 TO LE
560 POKE B,I
570 NEXT I
580 POKE B,32:A$="":CN=0:POKEV,15:POKE 198,0
585 POKE 54276,17
590 FOR I=1027 TO 1988 STEP 40
600 POKE S,220-CN
610 POKE I,LE
620 FOR J=1 TO DL
630 IF A$="" THEN GET A$
640 NEXT J
650 IF A$="" THEN 680
660 IF ASC(A$)=LC THEN 820
670 A$=""
680 POKE I,32
690 CN=CN+3
700 NEXT I
710 POKE 54276,16
720 FORT=1TO100:NEXT
730 LR=LR-1
740 PRINT "      "
750 PRINT "";LR
760 IF LR=0 THEN 1010
770 GOTO 500
820 POKE I+A+3,5:POKE I+3,31:POKE S,20:POKE V,15:POKE 54276,129
830 FOR K=1 TO 30
840 POKE I,81
850 FORT=1TO20:NEXT
860 POKE I,87
870 FORT=1TO20:NEXT
880 NEXT K
890 POKE I,32:POKE 54276,128
900 IF I<BT THEN BT=I
910 TM=TM+(I-1026)/40:SC=SC+1:LR=LR-1
920 PRINT "      "
930 PRINT "";LR
940 PRINT "";SC
950 IF LR=0 THEN 1010
960 GOTO 500
1010 FORT=1TO750:NEXT
1020 PRINT "[147]"TAB$"SCORE:";SC
1030 IF SC>HS THEN HS=SC
1040 PRINT TAB$"HIGH SCORE:";HS
1050 PRINT TAB$"HIGHEST POSSIBLE"
1060 PRINT TAB$"SCORE:";NL
1070 ER=(SC/NL)*100
1080 PRINT TAB$"EFFICIENCY"
1090 PRINT TAB$"RATING:";ER;"%"
1100 IF SC=0 THEN AT=0:GOTO 1120
1110 AT=INT(TM/SC)
1120 PRINT TAB$"AVERAGE TIME:";AT
1130 PRINT TAB$"(1[146] - GOOD 22[146] -BAD)"
1140 PRINT TAB$"WOULD YOU LIKE TO"
1150 PRINT TAB$"PLAY AGAIN? (Y OR N)"
1160 POKE 198,0
1170 A$="":GET A$:IF A$="" THEN 1170
1180 IF A$="Y" THEN 100
1181 IFA$<>"N"THEN1170
1190 PRINT"[147]":END